Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/background_67348.txt

Text File | 1990-08-14 | 8KB | 371 lines

-- background: 67348 from stack: in
-- bmap block id: 68169
-- flags: 0000
-- background id: 0
-- name: Class Directory
----- HyperTalk script -----
on openBackground
  global buttonID
  put 6 into buttonID
end openBackground

on closeBackground
  global buttonID
  if buttonID is not 6 then
    set hilite of background button id buttonID to false
    set hilite of background button id 6 to true
  end if
end closeBackground

on openCard
  global buttonID
  put the long date into field "date"
  if buttonID is not 6 then
    set hilite of background button id buttonID to false
    set hilite of background button id 6 to true
    put 6 into buttonID
  end if
end openCard

on doMenu menuItem
  lock screen
  if ((menuItem contains "About") OR (menuItem is "Home") OR (menuItem contains "Quit") OR (menuItem is "Report Manager") OR (menuItem is "Report Cards") OR (menuItem is "Close") OR (menuItem is "All Students") OR (menuItem is "By Class") OR (menuItem is "By Grade") OR (menuItem is "By Homeroom") OR (menuItem is "By ID's") OR (menuItem is "Single Student") OR (menuItem is "Period To Daily Link…") OR (menuItem is "Action Comment…")) then
    pop card
    send "doMenu menuItem" to background "CSL Attendance Window"
  end if
  unlock screen
end doMenu

on mouseUp
  global buttonID
  if buttonID is id of target then
    lock screen
    go to card "By Class" of background "CSL Attendance Window"
    unlock screen
  else
    if ("button" is not in name of target) OR (line id of target - 5 of field "Class" is empty) then exit mouseUp
    set hilite of background button id buttonID to false
    set hilite of target to true
    put id of target into buttonID
  end if
end mouseUp


-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=98 right=294 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Class


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=229 top=98 right=294 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Teacher


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=380 top=98 right=294 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Status


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=144 top=71 right=85 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=59 right=72 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Period


-- part 6 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=58 top=100 right=114 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=114 right=128 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=128 right=142 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=142 right=156 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=156 right=170 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=170 right=184 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=184 right=198 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=198 right=212 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=212 right=226 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=226 right=240 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=240 right=254 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=254 right=268 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=268 right=282 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=282 right=296 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=59 top=297 right=311 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroll Bar
----- HyperTalk script -----
on mouseUp
  global scrollLeft, scrollRight
  lock screen
  if the clickH >= scrollRight then go next
  else if the clickH <= scrollLeft then go prev
  unlock screen
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=64 top=42 right=57 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 5068 / 5068
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  set icon of me to "Close Box Hi"
end mouseDown

on mouseLeave
  set icon of me to "Close Box"
end mouseLeave

on mouseUp
  set icon of me to "Close Box"
  lock screen
  pop card
  unlock screen
end mouseUp